www.gusucode.com > 忠网网站广告管理系统 ZonGG V1.3 > 忠网网站广告管理系统 ZonGG V1.3\code\GGtiaoIp.asp
<!-- #INCLUDE FILE="login.asp" -->
<body topmargin="0" leftmargin="5" rightmargin="0" bottommargin="0" bgcolor="#FFFFFF">
<%
'///*********************************
' 广告条ip列表显示程序
'********************************///
if not isnumeric(trim(request("id"))) then
response.write "错误：广告条ID无效！"
response.end
else
id = trim(request("id"))
end if
%>
<div align="center">
<center>
<table border="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#C0C0C0" width="100%" id="AutoNumber1" height="100%">
<tr>
<td height=5 colspan="2"></td></tr> <tr>
<td height=100 width="150" align="center">
<%Call GgtiaoXsSl(id)%>
</td>
<td height=100 align="right" valign="top">
<p align="center">
<iframe name="I1" src="GGtiaomx.asp?id=<%=id%>" marginwidth="1" marginheight="1" height="90" width="98%" scrolling="no">
无法调用 ... </iframe>
<BR><BR>
<b>本广告条所有<%if trim(request("i"))="1" then%>浏览<%else%>点击<%end if%>IP记录，对于IP开关处于关闭状态的广告条，本记录为空。</b>
</td></tr>
<tr>
<td valign="top" colspan="2">
<div align="center">
<center>
<table border="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#C0C0C0" width="98%" id="AutoNumber1" height="100%" align=center>
<tr><td height=10></td></tr>
<tr><td bgcolor=#FF6600 height=1></td></tr>
<tr><td height=10></td></tr>
<tr>
<td valign="top">
<%
if xmltype=1 then '' xml 存取
strSourceFile = Server.MapPath(dataxml&"/Advertisement/"&id&"/ip"&trim(request("i"))&".xml")
Set objXML =Server.CreateObject("Microsoft.XMLDOM") '创建一个XML对像
objXML.load(strSourceFile) '把XML文件读入内存
Set xml=objXML.documentElement.selectSingleNode("ips") '选取节点 Advertisement
AllNodesNum =xml.childNodes.length
response.write " <font size=3 color=red><b><i>共计 "&AllNodesNum&" 条 记录</i></b></font><BR>"
'' Page 1 ''''''''''''''''''''''''''''''''''''''''''''''''''''''
nummer=10
pages=0
rssum=AllNodesNum
if rssum mod nummer > 0 then
pages=rssum\nummer+1
else
pages=rssum\nummer
end if
page=trim(request("page"))
if not(isnumeric(page)) then page=1
if int(page)>int(pages) or int(page)<1 then
viewpage=1
else
viewpage=int(page)
end if
'' end page 1 '''''''''''''''''''''''''''''''''''''''''''''''''''''
response.write "<br>"
For i=(viewpage-1)*nummer+1 to viewpage*nummer
if i>AllNodesNum then exit for '' Page 2
%>
编号: <%=xml.childNodes.item(i-1).childNodes.item(0).text %>）
<%=xml.childNodes.item(i-1).childNodes.item(2).text %> 来源于IP:
<%=xml.childNodes.item(i-1).childNodes.item(3).text %>
<BR><BR>
<% Next
Set xml=nothing
Set objXML =nothing
else ' 数据库存取
sql="select * from IP"&trim(request("i"))&" where Adid="&id&" order by IPid desc"
rs.open sql,conn,1,1
'' 分页设置部分
if rs.eof and rs.bof then
rssum=0
else
rssum=rs.recordcount
end if
call PubPageGs()
if int(viewpage)<>1 then
rs.move (viewpage-1)*nummer
end if
for i=1 to nummer
if rs.eof then exit for
%>
编号: <%=rs(0)%>） <%=rs(2)%> 来源于IP: <%=rs(3)%>
<%
rs.movenext
next
rs.close
end if
response.write "<hr size=1><table width='100%'><tr><td><p> 第 "&viewpage&" 页</p></td><td align=right><p>共 "&pages&" 页， 每页 "&nummer&" 条，<a href='?i="&trim(request("i"))&"&id="&id&"&page="&viewpage-1&"'>上一页</a> <a href='?i="&trim(request("i"))&"&id="&id&"&page="&viewpage+1&"'>下一页</a></td></tr></table>"
response.write "</blockquote>"
%>
</table>
</center>
</div>
</td>
</tr> </table>
</center>
</div>
</body></html>